www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\member_showinfo.asp

    <!--#include file="../Include/CheckLogin.asp"-->
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/Function.asp"-->
<%
	action 	= request("action")
	act 	= request("act")
	User_ID  	= request("User_ID")
	
	dim action,id
	dim totalpage,maxperpage,totalrecords,i,currentpage
	
	response.expires = 0
	currentpage = request("page")
	if currentpage = "" then
		currentpage=1
	end if
			
	maxperpage 		= 25
	totalrecords	= 0
	totalpage		= 1
		
	Set Rs = Server.CreateObject("ADODB.Recordset")
	
	if action = "del" then
		Sql = "Delete From Liangjing_User Where User_ID="&User_ID
		Conn.execute(Sql)
		Response.Redirect("Member_Manage.asp?page="&Request("page"))
		Response.end
	elseif action = "lock" then
		Sql = "Update Liangjing_User Set User_IsLock="&Request("Lock_Type")&" Where User_ID="&User_ID
		Conn.execute(Sql)
		Response.Redirect("Member_Manage.asp?page="&Request("page"))
		Response.end
	end if
%>

<script language="javascript">
<!--
	function frUser_onsubmit(frm){
		var frm = eval(frm);
		if(frm.admin_loginname.value==""){
			alert("登陆名不能为空！");
			frm.admin_loginname.focus();
			return false;
		}
		if(frm.admin_name.value==""){
			alert("管理员的真实姓名不能为空！");
			frm.admin_name.focus();
			return false;
		}
		if(frm.admin_pass.value != ""){
			if(frm.admin_pass.value != frm.admin_pass2.value){
				alert("两次密码不一至！");
				frm.admin_pass.focus();
				return false;
			}
		}
		if(frm.action.value == "add"){
			if(frm.admin_pass.value == ""){
				alert("密码不能为空！");
				frm.admin_pass.focus();
				return false;
			}
			if(frm.admin_pass.value != frm.admin_pass2.value){
				alert("两次密码不一至！");
				frm.admin_pass.focus();
				return false;
			}
		}
		if(confirm("您确定要操作此管理员吗？")){
			return true;
		}
		return false;
	}
	
	function isDel(id){
		if(confirm("您确定要删除此账号吗？")){
			location.href="Member_Manage.asp?Action=del&User_ID="+id+"&page="+<%=currentpage%>;
		}
	}
	
	function OpenOrCloseLock(id,type){
		var alertStr;
		if(type==1){
			alertStr = "确定要将此账号上锁吗？";
		}else{
			alertStr = "确定要将此账号解锁吗？";
		}
		if(confirm(alertStr)){
			location.href="Member_Manage.asp?action=lock&Lock_Type="+type+"&User_ID="+id+"&page="+<%=currentpage%>;
		}
	}
-->
</script>
<link href="images/Admin.css" rel="stylesheet" type="text/css">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
      <td>			
		  	<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
				<tr> 
					<td width="100%" height="23" bgcolor="#ffffff" align="left">&nbsp;会员管理
					</td>
				</tr>
			</table>
			<br>  
			<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
			  <tr bgcolor="#EAEAEA"> 
			  	<td height="25" colspan="4" align="center">查看会员详细信息</td>
			  </tr>
			  <%
			    	
			  	Set Rs = Server.CreateObject("Adodb.recordset")
				sql="SELECT *,(Select count(Src_ID) From Liangjing_Source where Src_Userid=User_ID) as Src_Count From Liangjing_User Where User_ID="&User_ID&" order by User_ID Desc"
				Rs.open Sql,conn,1,2
				if Not Rs.eof then
					rs.pagesize		= maxperpage
					rs.absolutepage	= currentpage
					totalpage		= rs.pagecount
					totalrecords	= rs.recordcount
				end if

			  %>
			  <tr> 
			  	<td width="19%" height="22" align="center" bgcolor="#EAEAEA">&nbsp;用&nbsp;户&nbsp;名</td>
				<td width="32%" align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_CoolName")%></td>
				<td width="17%" align="center" bgcolor="#EAEAEA">真实姓名</td>
				<td width="32%" align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_Name")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">性&nbsp;&nbsp;&nbsp;&nbsp;别</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<% if rs("User_Sex")=true then Response.write("男") else Response.write("<font color='#ff0000'>女</font>")%></td>
				<td align="center" bgcolor="#EAEAEA">出生年月</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<% =Rs("User_BirthDay")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">邮箱地址</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_EMail")%></td>
				<td align="center" bgcolor="#EAEAEA">联系电话</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_Tel")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">居住地址</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_Address")%></td>
				<td align="center" bgcolor="#EAEAEA">邮政编码</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_PostCode")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">账号状态</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_IsLock")%></td>
				<td align="center" bgcolor="#EAEAEA">账号等级</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%'=Rs("User_UserLevel")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">注册日期</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_SignInDate")%></td>
				<td align="center" bgcolor="#EAEAEA">登入的IP地址</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_LastLoginIP")%></td>
			  </tr>
			  <tr> 
			  	<td height="22" align="center" bgcolor="#EAEAEA">登入次数</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_LoginNum")%></td>
				<td align="center" bgcolor="#EAEAEA">最后一次登入</td>
				<td align="left" bgcolor="#FFFFFF">&nbsp;<%=Rs("User_LastLoginDate")%></td>
			  </tr>	
			</table>
			
			<br>			
		
			<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
				<tr> 
					<td width="100%" height="23" bgcolor="#EAEAEA" align="right">	
                      <a href="javascript:history.back();">返回</a>&nbsp;&nbsp;
					  <%Response.write("<a href='javascript:isDel("&Rs("User_ID")&");'>删除</a>&nbsp;")%>
					</td>
				</tr>
			</table>
		
	</td>	
	</tr>
	<tr> 
	  <td height="22"></td>
	</tr>
</table>

<%  
Set Rs = Nothing 
Set Conn = Nothing 
%>